home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_29853_doMarkCSTR < prev    next >
Text File  |  1994-09-21  |  3KB  |  89 lines
  1. global TDi,tct
  2. if CDs() then
  3. put the number of this cd - tct into TC
  4. wait 10
  5. if mouse()="up" then
  6. if icon of bg Btn "markme"=TDi then
  7. set the icon of bg Btn "markme" to 30016
  8. put return&(number of this cd-tct)& return into checkstr
  9. put offset(checkstr,fld "marked cards") into howfar
  10. if howfar = 0
  11. then
  12. if checkstr is not in fld "marked cards"
  13. then put number of this cd -tct&return into line (numLns(fld "marked cards")+1) of fld "marked cards"
  14. set icon of bg Btn "markme" to TDi
  15. else
  16. add 1 to howfar
  17. get char 1 to howfar of fld "marked cards"
  18. delete line numLns(it) of fld "marked cards"
  19. set itemdelimiter to "Ñ"
  20. get (number of this cd -tct)
  21. get offset("ª"&it&"Ñ",fld "marked cards")
  22. if it ¡0
  23. then
  24. repeat
  25. if char it of fld "marked cards" = "Ñ" then exit repeat
  26. delete char it of fld "marked cards"
  27. end repeat
  28. put offset("Ñ"&TC&"ª",fld "marked cards") into startchar
  29. delete char startchar to it of fld "marked cards"
  30. end if
  31. end if
  32. else
  33. if checkstr is not in fld "marked cards"
  34. then put number of this cd -tct&return into line (numLns(fld "marked cards")+1) of fld "marked cards"
  35. set icon of bg Btn "markme" to TDi
  36. end if
  37. else
  38. put numLns(fld "marked cards") into linecount
  39. put empty into marklist
  40. put empty into theMess
  41. repeat with a = 2 to linecount
  42. set itemdelimiter to "Ñ"
  43. get offset("ª"&line a of fld "marked cards"&"Ñ",fld "marked cards")
  44. if it ¡ 0
  45. then
  46. get last item of char 1 to it of fld "marked cards"
  47. set itemdelimiter to "ª"
  48. get item 2 of it
  49. if line a of fld "marked cards" = TC then put it into theMess
  50. put line a of fld "marked cards" && it into line (numLns(marklist)+1) of marklist
  51. else
  52. put line a of fld "marked cards" into line (numLns(marklist)+1) of marklist
  53. end if
  54. end repeat
  55. put marklist&return&"-"&return&tStr("LibMsg",33) into popmess
  56. get popitup(popmess,0,clickh(),clickv())
  57. set itemdelimiter to ","
  58. put item 2 of it into what
  59. get item 1 of it
  60. if it¡0 then
  61. if it < (numLns(fld "marked cards")) then go cd (word 1 of((line it of popmess)) + tct)
  62. else
  63. set icon of bg Btn "markme" to TDi
  64. if number of this cd-tct&return is not in fld "marked cards"
  65. then put number of this cd -tct&return into line (numLns(fld "marked cards")+1) of fld "marked cards"
  66. sort fld "marked cards" numeric
  67. ask tStr("LibMsg",34) with theMess
  68. if it ¡""
  69. then
  70. put it into theMess
  71. set itemdelimiter to "Ñ"
  72. get (number of this cd -tct)
  73. get offset("ª"&it&"Ñ",fld "marked cards")
  74. if it ¡0
  75. then
  76. repeat
  77. if char it of fld "marked cards" = "Ñ" then exit repeat
  78. delete char it of fld "marked cards"
  79. end repeat
  80. put offset("Ñ"&TC&"ª",fld "marked cards") into startchar
  81. delete char startchar to it of fld "marked cards"
  82. end if
  83. put "Ñ"&TC&"ª"&stripem(theMess)&"ª"&TC&"Ñ" before line 1 of fld "marked cards"
  84. end if
  85. end if
  86. end if
  87. end if
  88. sort fld "marked cards" numeric
  89. end if